home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Invisible Universe
/
Invisible Universe (1995)(Voyager)[Mac-PC].iso
/
mac
/
UNIVERSE
/
SHARED.DIR
/
01011_Script_notes for lazy instantiation
< prev
next >
Wrap
Text File
|
1995-11-21
|
519b
|
19 lines
on LazyNotes it, btnList, i
if listP(it) then
set it = string(it)
set len = the length of it
set it = char 2 to len - 2 of it
set str = "set it = birth(" & it & ")"
do str
--put ">>> " &str
setProp btnList, i, it
end if
put quote into q
set gCBL to [:]
set sc = script "sbc"
-- addprop gCBL, 2, birth(script "sbc",2,"CT5R.PIC","CT5P.PIC","myGo "&q&"O"&q)
addprop gCBL, 2, [sc, 2, "CT5R.PIC", "CT5P.PIC","myGo "&q&""e&"&q&"O"&q&""e"]
end